home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb40452.lsp < prev    next >
Text File  |  1998-03-15  |  2KB  |  76 lines
  1. ;=============404.52 Profil 40x40-45°, leicht natur
  2.  
  3. (EAITDBL "0040452")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7.  
  8. (defun MB40452 (RI ART / P1 Li Wi KR WINFO)
  9.  
  10.    (EAITDBL "0040452")
  11.    (princ (strcat "\n\n" EAITbez1))
  12.    (EAITvari)
  13.    (if (not EAITlpr)(setq EAITlpr 0.0))
  14.    (EAITvars)
  15.    (EAITbpt nil nil nil)
  16.    (setq P1 (getpoint))
  17.    (if (= P1 nil)(setq P1 (EAITrpt)))
  18.    (EAITmsg "mb_mld1" "\n" "005" " <")(princ EAITlpr)(princ "> ")  ;Laenge < >
  19.    (initget (+ 2 4))
  20.    (setq Li (getdist " "))
  21.    (if (= Li nil)(setq Li EAITlpr))
  22.    (while (or (> Li EAITlmax)(<= Li EAITlmin))
  23.       (EAITmsg "mb_mld1" "\n\n" "006" "  ")(princ EAITlmin)(princ " / ")(princ EAITlmax)(EAITmsg "mb_mld1" " " "007" nil)
  24.       (EAITmsg "mb_mld1" "\n" "005" " <")(princ EAITlpr)(princ "> ")
  25.       (initget (+ 2 4))
  26.       (setq Li (getdist " "))
  27.       (if (= Li nil)(setq Li EAITlpr))
  28.    )
  29.    (setvar "OSMODE" 0)
  30.  
  31.    ;1 Nachkommastelle
  32.    (setq Li (/ (float (fix (+ (* Li 10.0) 0.5))) 10))
  33.    (princ "\n  -> ")(princ Li)
  34.  
  35.    (cond ((OR (= RI "H")(= RI "h"))
  36.        (setq Wi 0)
  37.       )
  38.       ((OR (= RI "V")(= RI "v")) 
  39.        (setq Wi (/ Pi 2))
  40.       )
  41.       (T
  42.        (initget 1)
  43.           (EAITmsg "mb_mld10" "\n" "004" nil)     ;Winkel
  44.           (setq Wi (getangle P1))
  45.       )
  46.    )
  47.  
  48.    (initget 1)
  49.    (EAITmsg "mb_mld10" "\n" "008" nil)           ;Konstruktionsrichtung
  50.    (setq KR (getangle P1))
  51.  
  52.    (if EAITpro8 nil (load (strcat EAITpfn "EAITpro8")))
  53.    (cond ((OR (= ART "G")(= ART "g"))          ;---Ansicht der glatten Seite
  54.        (EAITpro8 "40x40-45" P1 Li Wi KR)
  55.       )
  56.          ((OR (= ART "N")(= ART "n"))          ;---Ansicht der Nutseite
  57.        (EAITpro8 "40x40" P1 Li Wi KR)
  58.       )
  59.    )
  60.    (setq Li (rtos (abs Li) 2 1))
  61.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 WINFO 5) "" "" ""
  62.                    EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 Li (rtos EAITb1 2 1) EAITnr
  63.    )
  64.  
  65.    ;letzte Laenge (Li) merken
  66.    (setq Li (atof Li))
  67.    (setq EAITlpr Li)
  68.  
  69.    (EAITvarz2)
  70.    (princ)
  71.  
  72. );defun MB40452
  73.  
  74. (princ)
  75.  
  76.